home *** CD-ROM | disk | FTP | other *** search
/ Point Programming 1 / PPROG1.ISO / pascal / swag / crt.swg / 0015_Set High Background.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-11-26  |  1.4 KB  |  51 lines
  1. >Actually James you are in correct.  Here is some code that will change the
  2. >blinking characters to a enhanced back ground...
  3. > 
  4. >Procedure HighBackGround;
  5. >VAR
  6. >  R: Registers;  {You must use the Dos Unit.}
  7. >BEGIN
  8. >  WITH R DO
  9. >  BEGIN
  10. >    R.AH:=$10;
  11. >    R.AL:=$03;
  12. >    BL:=0;
  13. >     {0 for intense back ground}
  14. >     {1 for blink}
  15. >  END;
  16. >  Intr($10,R);
  17. >END;
  18. > 
  19. >Hope this helps,
  20. >  
  21.  
  22.   This solution is correct, but only for EGA or higher monitors.  
  23.  
  24.   To get high intensity background colors on a CGA card, you need to
  25.   access the Color Graphics Mode Control Register, port $3d8.
  26.  
  27.   The bit meanings are as follows:
  28.  
  29.   bit
  30.  
  31.   7,6   unused
  32.   5     blink mode 0 = disable blink 1 = enable blink
  33.   4     graphics resolution 0 = 320x200 1 = 640x200
  34.   3     video enable 0 = disable 1 = enable
  35.   2     color mode 0 = color 1 = bw
  36.   1     monitor mode 0 = alphanumeric 1 = graphics
  37.   0     char. size 0 = 40x25 1 = 80x25
  38.  
  39.   The simplist answer to your problem is, in TP, 
  40.  
  41.     port[$3d8] := $9
  42.  
  43.   This sets 80x25 color alphanumeric mode with high intensity
  44.   background colors.  If you need other modes, set the bits
  45.   accordingly.  
  46.  
  47.   One word of caution:  register $3d8 is write only, so you can't
  48.   use the read-or-write method of bit setting.  You'll need to look
  49.   into the BIOS data area to find out the current video mode if
  50.   necessary.
  51.